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INTRODUCTION 

The IMS assumes that the reader has a working knowledge of 
FORTRAN and knows the general form of the statements 
involved. For instance, in considering a statement such as 
PRINT n, L» it is assumed that the reader is familiar with the 
meanings normally attached to n and L. 

UDon encountering an input or output statement, the compiler 
generates a calling sequence for use by the execution time 
routines. Format syntax only is checked at compiled time, 
format diagnostics are produced during execution. Each 
particular set of I/O statements, i.e., READ, WRITE, ENCODE, 
BUFFER IN, etc., use an individual execution time routine. 
These routines do their own processing within themselves an<5 
depend only on the record manager for the I/O. Information is 
passed to the record manager through macro calls STORE* ing 
directly into the FIT. 

ail information necessary for the completion of the task is 
generated by the compiler in the form of a parameter list 
(APLIST) and passed to the execution time routine. The APLIST 
is terminated by a zero word (APENO). This is a negative zero 
if control will, be returned. to the execution time routine for 
the completion of this statement. An example of this is the 
following statements READ(i) I,A(I). The address of All) can «~J 
be calculated only after I is read. INPB= is entered x " r 
initially to read I, then returns to the calling routine which 
passes the address of A (I) in the APLIST for the restart 
call. If APEND.is plus zero.,, then this is, a final call. 

A table of source statements and associated object library 
routines used is provided later in this section. The form of 
the parameter list (APLIST) for each obfect routine is 
described in the section for that routine. The routines are 
described in alphabetical order. 
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SOURCE STATEMENTS ANO ASSOCIATED PRIMARY OBJECT ROUTINES 

The fo I lowing ' table shows the entry points of primary object 
library routines used 3S a result of FORTRAN source 
statements . 



Source Statement 

READ (u,f> k 
REAO f, k 

WRITE (u*f) k 

WRITE f, k 

PRINT f, k 

PUNCH f, k 

READ fu) k 
REAO (u) 

WRITF (u) k 
WRITE (u) 

REWIND u 

BACKSPACE u 

ENOFILE u 

CALL OPENMS (u«ix«l«p) 

CALL REAOMS (u,fwa,n,i) 

CALL WRITMS <u,fwa,n,i) 

CALL STINOX (u,ix,l ) 

A = UNIT(u) 

3 = EOF(i) 

J = IOCHEC(u) 

L = LENGTH(u) 

SUFFER IN <u,p) (A,B) 

BUFFER OUT (u,p) (A, 3) 



Entry Points Used 
INPCI..INPCR. 

OUTCI.tOUTCR. 

INP8I., INPBR. 

OUTS I., OUT BR. 

REWINO. 

BACKSP. 

ENOFIL. 

OPENMS. 

REAOMS 

WRITMS 

STINOX 

UNIT 

EOF 

IOCHEC 

LENGTH 

BUFIN. 

8UF0UT. 



Rout ine 
INPC= 

OUTC= 



INP8= 

OUTB= 

REWINO= 

BACKSP= 

ENOFIL= 

OPENMS 

REAOMS 

WRITMS 

STINOX 

UNIT 

EOF 

IOCHEC 

LENGTH 

BUFIN- 

BUFOUT= 
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ENCODE <c,m,v> k 

DECODE (c-»m,v) k 

PROGRAM name (...) 

PAUSE 

CALL EXIT 

STOP o 

END 



ENCODI., ENCOOR, 

DECOOI., OFCOOR« 

08NTRY. 

PAUSE. 

EXIT 

STOP. 

END. 
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ENCODE= 

DECODE= 

FORSYS= 

FORSYS= 

F0RSYS= 

FORSYS= 

FORSYS= 
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ABBREVIATIONS 

APENO = terminator word of a parameter list 

APLIST = parameter list 

801 = beginning of information 

EOF = end-of-f i le 

EOI ~ end-of-informat ion 

EOR = end-of-record 

FIT = File Information Table 

FWA = first word address 

I/O = input/output 

LCM s large core memory (CYBER 76) 

LWA = last word address 

SCM = small core memory 



INTRODUCTION 



o 



FORTRAN COMMON I/O LIBRARY IMS 

05/08/73 

1.1 Common Parameter List Flag Bit Definitions 

Three flag bits have been defined for modifying the context of 
18- or 2^-bit address fields passed through A^LISTs to the 
common object time I/O routines. The flag bits are located in 
the parameter word that they modify, in bit positions 57 to 
59. The address field subject to modification is normally 
right-Justified in bits 0-17 or 0-23. Flag bit meaning is 
def ined as f ol lows* 

Fl ag Status Context 

All flags = The address field contains the direct 

address of the parameter being 
passed? the parameter resides in 

SCM. 

LCM = 1 The address field contains the direct 

2^-bit parameter address? the 
parameter resides in LCM. 

VAR = 1 The address field points to a 

variable. 

FP s i The address field contains an ordinal 

and offset to a formal parameter. (f~^ 

The form is 18/of f set ,6/ordina I . ^ 

1.2 APLTST Parameter Element Expansions 

1. FIT Dointer VFO 1/VAR, i/FP, *fO/Q, 18/FITADR 

where FIT ADR = FWA of the FIT 

2. LIST item VFO 1/LCM, 1/FP, 1/IND, 3/0, 6/TYPf, 18/ 

N3REL, 6/0, 2WTTEM 

where ITEM = address of the I/O list item 

where TYPE = tyoe of this list item. Possible values 

ares 

- reserved 

1 - logical 

2 - Integer 

3 - real 

if - double 
5 - complex 
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If INO = 1, NBREL contains the SCM address of the list 
element count. 

If INO = 0, NBREL and the 6 bits after it = number of 
contiguous elements in the list item. 

3. APENO VFD 60 /END 

where END = +D to denote the end of an I/O list: 

= -0 to denote the intermediate interruption 
in an I/O list. Subsequent list elements 
will be requested on the next call Cs). 
(This can occur, for example, when a list 
element has function call as a 
subscript). 

4. RECORD length VFD t»?/Q, 18/WOCNT 

where WDCNT = number of words in a record, 

5. FORMAT pointer VFO 1/LCM, 1/FP, i/VAR, 33/0, 24/FMT 

where FMT - vector to a FORMAT specification. 

6. MOOF pointer VFO «»2/0,13/SCM address of word that 

contains the file mode. 

7. BUFFWA VFD 1/LCM, 1/FP, 1/VAR, 33/0, 2^/FWA 

where FWA - vector to FWA of an I/O buffer area. 

8. 3UFLWA VFD 1/LCM, 1/FP, 1/VAR, 33/0, 2*t/LWA 

where LWA = vector to LWA of an I/O buffer area. 

9. STRING pointer VFD 1/LCM, 1/FP, 1/VAR, 33/0, ?i*/0ATSTR 

where DATSTR = vector to a data string for DECODE inout 

or ENCODE Output. 

Ill, COUNT pointer VFD 1/LCM, 1/FP, 1/VAR, 33/0, 2^/CNT 

where CNT - vector to a word containing a character 
count. 
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It. TRACE VFO 12/LINECNT, 18/IOADR 

where LINECNT '= line number of source program statement 
that caused this call to be compiled* ir- 
binary. If LINECNT = 0, no line number 
nil! pe printed in error traceback 
listings (to accommodate RUN compiler 
output) . 

IOADR = SCM address of a word containing the 
program unit identification for 
traceback. The 10 word will contain the 
program unit name in bits 59-18, in left- 
Justified display code with blank (55B) 
fill, and the address of the program unit 
entry point in bits 1.7-0. If the program 
unit has more than one entry point, the 
address will be that of the main entry 
point. 
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1.1 BACKSP= 

1.2 PURPOSE 



BACKSP= will backspace the logical unit specified one logical 
record. 



i 1.3 USAGE 



G This routine is called in response to the FORTRAN statement 

BACKSPACE u, where u is the unit designator. 

G Entry Points BACKSP. 

^ Entry Conditions* XI contains the FIT pointer. 

^ Exit Conditions: Upon exit BACKSP= will have backspaced the 

file one logical record. 

I.l* RESTRICTIONS and ERROR MESSAGES 

T 

J none 

1.5 GENERAL DESCRIPTION of the ROUTINE 



a. If XI does not contain the FWA of the FIT, GETFIT. 
is called and returns the address in XI. 

b. If the file is positioned at 301 then control is 
returned to the calling routine. 

c. The FORTRAN endfile bit in the FIT is cleared. 

d. If the fast operation on the file was a write, an 
ENDFILE is written and the file is backspaced ov<ir 
the ENDFILE. 

e. The file is then backspaced over the usei — s logical 
record using the record manager macro SKIPBL. 

1.6 EXTERNAL CALLS 

GETFIT. - locates the FWA of the FIT 
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2.1 BUFIN= 

2.2 PURPOSE 



BUFIN= initiates a read operation that reads one logical 
record from a specif iec file directly into the user-s buffer. 



O 



2.3 USAGE 

This routine is called in response to the FORTRAN statement 
BUFFER IN <u,p) (A,B) where 

u = Logical unit number 

o - Recording mode 

A = FWA of the block of data to be transmitted 

8 = LWA of the block of data to be transmitted 

Entry Point* BUFIN. 

Entry Conditions! 

Ai ~ FWA of the APLIST 
XI = FIT pointer 

APLIST format: 

FIT pointer 

Address of rford containing the mode indicator 

FWA of the block of data to be transmitted tf\ 

LWA of the black of data to be transmitted v 

Exit Conditions* Uoon exit a read request will have been made 
to the record manager. 

2.% RESTRICTIONS and ERROR MESSAGES 

Restrictions: Exit from BUFIN= does not guarantee that the 
read operation has begun. A call to UNIT must be made to 
check for the completion 3f the transfer of data. 

Error messages: 

Error number 

ENO OF FILE ENCOUNTERED, FILENAME - XXXXXX 55 

WRITE FOLLOWED BY READ, FILENAME - XXXXXX 56 

2.5 GENERAL DESCRIPTION of the ROUTINE 

a. If XI does not contain the FWA of the PIT, GETFIT. 
is called and returns the address in XI. 

b. BUFI'O is called to obtain and check the parameters 
from the APLIST. 



BUFIN= 10 ^) 
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c. If the FORTRAN endfile bit is set in the FIT, then 
issue error message number 55. 

d. If the current file position is £01, set the FORTRAN 
endfile bit in the FIT and return to cat line 
rout ine . 

e. If the last operation on the file was a write, ther 
issue fatal error message number 56. 

f. A request is made to the record manager to initiate 
the read operation and control is returned to the 
ca I I ing routine. 

2.6 EXTERNAL CALLS 

GETFIT. - Locates the FWA of the FIT. 

8UFI0. - Obtains the parameters from the APLIST. 

SYSER*?. - Handles error processing 
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3.1 3UFI0= 
3.? PURPOSE 
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9UFI0= is a common routine for 3UFIN= and BUFOUT=. It obtains 
the parameters from the APLIST and stores the necessary fields 
in the FIT. 

3.3 USAGE 

3UFT0= is called each time BUFIM= or BUFOUT= is called to 
obtain parameters from the APLIST. 

Entry Point: BUFIO. 

Entry Conditions? 

XI = FWA of the FIT 

X2 = Open code 

X3 = Record manager error exit 

Xi* = Record manager data exit 

87 = FWA of the APLIST 

Exit Conditions* Upon exit alt necessary fields will have been 
set in the FIT to complete the read or write. 

3.1* RESTRICTIONS and ERROR MESSAGES jQ 

Restrictions: none 

Error Messaqes: 

Error number 

AREA SPECIFICATION BAD - FWA .GT. LWA 58 

AREA SPECIFICATION SPANS SCM/LCM 57 

3.-5 GENERAL DESCRIPTION of the ROUTINE 

a. Store record manager error and data exit. 

b. Store conversion mode in the FIT. 

c. Open the file if it is not currently opened. 

d. If the FWA and LWA are not in the same type of 
memory, then issue error message number 57. 

e. If FWA is greater than LWA, then issue error message 
number 58. 

f. ComDUte record length and store in the FIT. 

BUFIO= 12 (Q 
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q. Store FWA of the record area in the FIT. 

3.6 EXTERNAL CALLS 

SYSFRR* - Handles error processing 
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k,l 8UF0UT = 

k.Z PURPOSE 



BUFOUT= initiates a write operation that writes one logical 
record to a specified file directly from the user-s buffer. 



I*. 3 USAGE 

This routine is called in response to the FORTRAN statement 
BUFFER OUT (u,P> (A, 9) where 

u = unit designator 

p = recording mode 

A = FWA of the block of data to be transmitted 

B = LWA of the block of data to be transmitted 

Entry Point: 3UF0UT. 

Entry Conditions: 

Al = FWA of the APLIST 
XI = FIT pointer 

APLIST format: 

FIT pointer 

address of word containing the mode indicator 
FWA of the block of data to be transmitted 
LWA of the block of data to be transmitted 

Exit Conditions: Upon exit a write request will have been made 
to the record manager. 

kr.k RESTRICTIONS and ERROR MESSAGES 

Restrictions: Exit from BUF0UT= does not guarantee that the 

write operation has finished. A call to UNIT must be 

made to check for the completi3n of the transfer of 
data. 

Error Messages: none 

k«5 GENERAL DESCRIPTION of ihe ROUTINE 

a. If Xi does not contain the FWA of the FIT, GETFIT. 
is called and returns the address in XI. 

b. BUFIO. is called to obtain and check the parameters 
from the APLIST. 

c. A request is made to the record manager to initiate 
the write operation and control is returned to the 
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cal I ing routine. 
4.6 EXTERNAL CALLS 

GETFIT. - locates the FWA of the FIT. 

RUFIO. - obtains the parameters from the APLIST 

SYSERR. - Handles error processing 
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5.1 CLOSMS 
5.? PURPOSF 

CLOSMS links a FORTRAN caller to the common FORTRAN/COBOL 
random file utility to close a random file. 

This routine is called in response to theFORTRAN statement 

5.3 USAGE CALL CLOSMS (u) where u is the unit designator. 

Entry Point: CLOSMS 

Entry Conditions: 

XI = FIT pointer 

Exit Conditions: The file will have been closed? the master 
index will not have been rewritten if the file was read only. 

5.** RESTRICTIONS and ERROR MESSAGES 

none 

5.5 GENERAL DESCRIPTION of the ROUTINE 

a. GETFIT. is called to obtain the FWA of the FIT. 

b. CLOS.RI is called to actually close the file. 

c. If an error number is returned from CLOS.RI, then 
print the error messaie and terminate, else return 
to the calling routine. 

5.6 EXTERNAL CALLS 

GETFIT. - locates the FWA of the FIT. 
CLOS.RI - does the actual closing of the file. 
SYSFRR. - Handles error processing 
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8.1 DECOOF= 

8.2 PURPOSE 



OFCOOF= transfers, under format control, packed data from one 
core location into data items and arrays located elsewhere in 
core. 



8.3 USAGE 



This routine is called in response to the FORTRAN statement 
OECODE (c,m t v) L where 

c - Unsigned integer constant or a simple integer 

variable specifying the number of characters in the 

record. 
m - Statement number or variable identifier 

representing the format statement, 
v - Address of a variable identifier or an array 

identifier which is the starting location of the 

formatted record. 
L = List of variable locations. 

Initial Entry Points OECODI. 

Entry Conditions? 

Ai = FWA of the APLIST 

XI = Address of word containing the character count 

APLIST formats 

Address of word containing the character count 
Address of word containing the format statement 
Address of word containing address of string 
List item 



APEND (zero word) 
Restart Entry Points OECODR. 

Entry Corditionss 

Al = FHA of the APLIST 
XI = List item 
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APLIST format: 

list item 



APEND (zero word) 

Exit Conditions: If APEND is minus zero, data from the string 
will have been unpacked and moved to the OAT. buffer. If 
APENO is Dlus zero, the data will have been moved to the list 
i terns. 

8.1* RESTRICTIONS and ERROR MESSAGES 

Restrictions: Character count must be less than 151 characters 
and greater than zero. 

Error messages 

Error number 

DECODE CHAR COUNT ,GT. 150 && 

DECODE CHAR COUNT .LE. ZERO 66 

8.5 GENERAL DESCRIPTION of the ROUTINE 

a. The character count is checked and if in error the 
appropriate error message is issued. 

b. The FWA of the format and string are obtained from 
the APLIST and control is passed to KRAKER. for 
init i a) izat ion. 

c. The next list item is obtained from the APLIST and 
control is passed back to KRAKER. where the data 
item is formatted and moved to the DAT. buffer. 

d. If the APLIST element is plus zero, a terminal call 
is made to KRAKER. If the APLIST element is minus 
zero, control is returned to the calling routine to 
obtain the next list item. 

e. 0EC0DE= is entered at DECODR. for a restart call. 
The logic then follows from step c. 
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8.6 EXTERNAL CALLS 



KRAKER. - formats and stores data string in data items or 
arrays 

SYSERR. - Handles error processing 
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9.1 FNCOOE= 

9.2 PURPOSF 



ENCODF= moves data from data items or arrays in one area of 
core to another core area under control of a given format 
statement. 



9.3 USAGE 
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Calls to ENCODE^ are generated by the FORTRAN statement ENCODE 
(ctffl.v) K where 

c = Unsigned integer constant or simple integer 
variable (not subscripted) specifying the number of 
characters in the record. 

m = Statement number or variable identifier 
representing the format statement. 

v = Variable identifier or an array identifier which 
supplies the starting location of the bed record. 

K ~ list of variables. 

Initial Entry Point* ENCOOI. #"J 

Entry ConditionsJ 

Al = Address of the APLIST 

XI = Pointer to character count 

APLIST formats 

Pointer to character count 
Pointer to format 
Pointer to string 
List item 



APENQ (zero word) 

Restart Entry Point* ENCOOR. 

Entry Conditions* 

AI = Address of the APLIST 
XI = List item 
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APLIST formats 

List item 



APEND (zero word) 

Exit Conditions* If APENO is minus zero, then the data froir 
the fist items wit! have been packed in the DAT. buffer. If 
APENO is plus zero, then the data will have been moved from 
the OAT. buffer to the string address. 

9,4 RESTRICTIONS and ERROR MESSAGES 

Restrictions* Character count must be less than 151 anc 
greater than zero. 

Error Messages: 

Error number 
ENCODE CHAR COUNT ,GT. 150 85 

ENCODE CHAR COUNT .LE. ZERO 85 



9.5 GENERAL DESCRIPTION of the ROUTINE 

O 



a. ENCO0E= is entered the first time at ENCODI. where 
AO is saved. 



b. The character count is obtained from the first word 
of the APLIST. If the character count is aut of 
bounds, the appropriate error message is issued. 

c. The format pointer and string pointer are obtained 
from the APLIST. 

d. The DAT. buffer is blanked. 

e. Initialization oarameters are passed to KOOER. to 
prepare for moving coded data. 

f. The next list item is obtained. If it is zero go to 
steo h. 

g. The data address and length are obtained from the 
list item and passed to KOOER. The data is 
formatted in the DAT. buffer. Control' is 
transferred to step f. 

h. If the list item is plus zero, then a terminal calf 
is made to KOOER. where the data is moved from the 
DAT. buffer to ih<s string area. 

ENC00E= 21 
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i. AO is restored and control is returned to the 
cal I ing program. 

]• ENCODE= is entered at ENC09R. for restart calls and 
control is then transferred to step f. 
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9,6 EXTERNAL CALLS 



KODER. - Encodes data items or arrays according to the given 
format statement. 

SYSERP. - Handles error processing 
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10.1 ENDFIL= 

10.2 PURPOSE 



<5 



ENDFIL= will write an end-of-file indicator on a specified 
uni t . 

10.3 USAGE 

This routine is called in response to the FORTRAN statement 
ENOFILE u, where u is the logical unit indicator. 

Entry Points* ENOFIL. 

Entry Conditions* XI contains the FIT pointer. 

Exit Conditions? An end-of-file will have been written on the 
soecified unit. 

10. h RESTRICTIONS and ERROR MESSAGES 

none 

10.5 GENERAL DESCRIPTION of the ROUTINE 

a. If XI does not contain the FIT address* GETFIT. is 
called and returns the address in XI. 

b. If the file is not opened* then the file is opened 
as a coded file. 

c. An endfile is written by the record manager and 
control is returned to user. 

10.6 EXTERNAL CALLS 

GETFIT. - locates FWA of the FIT 
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11.1 EOF= 

11.2 PURPOSE 



EOF= checks the previous read operation to determine if an 
end-of-file (EOF) has been encountered. 

11.3 USAGE 

This routine is called in response to the FORTRAN function 
EOF (i) where i = the urti t 'designator . 

Entry Point: EOF 

Entry Conditions! XI contains the FIT pointer. 

Exit Conditions: X*b contains zero if no EOF found, is not zero 
if an EOF found. The EOF condition is cleared if an EOF was 
encountered. 

11. * RESTRICTIONS and ERROR MESSAGES 

none 

11.5 GENERAL DESCRIPTION of the ROUTINE 

a. GETFIT. is called and the FIT address is returned 
in XI. 

b. X6 is set to zero to indicate no EOF. 

c. If either the file is not opened or the FORTRAN 
endfile bit in the FIT is off, then control is 
returned to the calling routine. 

d. The FORTRAN endfile bit in the FIT is cleared, X6 is 
set to 1.0, and control is returned to the calling 
rout ine. 

11.6 EXTERNAL CALLS 

GETFIT. - locates FIT address. 
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12,1 FORSYS= 

12.? PURPOSF 

FORSYS= is a multiple entry routine which handles prograrr 
initialization* error tracing, diagnostic printing, and 
termination of output buffers. 

12.3.0 ENTRY POINTS 

12.3.1 Q8NTRY, 

Purpose: Initializes I/O buffer parameters. 
Entry Conditions 

A1 = FWA file vector, which contains one word per 
programmer declared file - **?/ OLf i I ename, 18/ FWA 
FIT. The list is terminated by a word containing 
the complement of the output file line limit. 

A0 = SCM field length 

X0 = LCM field length 

Exit Conditions! The file vector has been transferred to RA + ? 
list, it is now terminated by a zero word. AM FITS have been 
initialized. Any file substitutions specified on the control 
statement have been done, as well as any *PL=* parameter. 

12.3.2 END. 

Purposes This entry point is called in response to the FORTRAN 
END statement. If not in <0,Q> overlay control is returned to 
calling overlay, else a dayfile message ENO XXXXXX is issued, 
buffers are flushed and the orogram terminated normally. 

Entry Conditions! XI has address of entry point of orogram. 

12.3.3 EXIT 

Purpose! This entry point is called in response to the FORTRAN 
statement CALL EXIT to terminate a Job with EXIT orinted in 
the day f i le. 

Entry Conditions! none 

12.3. h STOP. 

Purpose! This entry ooint is called in response to the FORTRAN 
statement STOP with a message following. 

F0RSYS= 25 
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12.3.5 ABNORM. 



Purpose! This routine gains control from an execution time 
routine when a fatal error has been processed. An error 
message with tracebacK information is written to the dayfile, 
and the lob terminated. 



12.3.6 PACK. 
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Purpose! Packs up a line of characters in 1R format. The 

packed words are stored back into the area holding the 

unpacked characters. The first location preceding the 
unpacked area is destroyed. 

Entry Conditions! 

Bl = Number of characters to pack 

A2 = Address of start of character string 

X2 = First character 

12.3.7 3URST. 

Purpose! Unpack a line of input characters in 10H format to If? 
format in the DAT. buffer. The word preceding the OAT. is 
destroyed. 

Entry Conditions! X3 = total number of characters in record fj) 

12.3.8 IOERR. 

Purpose! Prints the fatal record manager error number in the 
OUTPUT file. for file with error 

12.3.9 SYSERP. 

Purpose! Error tracing and diagnostic printing. 

Entry Conditions! 

XI = Error number 

X2 = Address of diagnostic message 

Exit Conditions! SYSERR. will transfer to SYSTEM for non- 
standard error recovery, aborts the Job, or returns to the 
calling routine, depending on the type of error being 
processed. if XI is zero , then the message is printed and 
control returned. to the calling routine. 

12.5. C GENERAL DESCRIPTION of the ROUTINE 
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12.5.1 Q8NTRY. 
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12.5.? END. 



12.5.3 EXIT 



12. 5. «♦ STOP 



o 



a. Save the . SCH and LCM field lengths in FLSCM. and 
FLLCM. respec t t vel y . 

b. Fetch word from FILES. list, if negative go to step 
f. this list contains aff the files declared on the 
program card and the addresses of the corresponding 

FIT-s, 

c. Fetch word from RA + 2 list. If this is zero no file 
substitution is reauested, go to step d. If this is 
the print limit parameter, compute line limit and 
save in X5. If it is a file name save it in X7 so 
that it may be stored in the FIT. 

d. If the first word of the FIT is zero, then store the 
name of the file. Store following fields in the 
FIT? SDS=YES, E0=AD, OF=N. 

e. Decrease parameter count, store file name in RA+2, 
and fetch next name from FILES. list. If MODEL is 
GE to 75 do a SETFIT on the file. 

f. After all file names have been processed store the 
OUTPUT file line limit and return to the calling 
rout ine. 



a. If in overlay other than (0,0) return to the calling 

overlay. 

OR 

b. Issue dayfile message END XXXXXX. 

c. Call SYSEND. to terminate all output buffers. 

d. Terminate the Job. 



Issue dayfile message EXIT and transfer control to 
step c under END. 



Move the word STOP followed by up to seven words of 
message to the OAT. buffer. 
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b. Write message in the DAT, buffer to the dayfile anc 
transfer control to step c under END. 

1?.5.«5 A3N0RM. 

a. The last error encountered is written to the dayfile 
with traceback information. 

b. SYSEND. is called to terminate the output buffers. 

c. The ABORT macro is used to terminate the Job. 
i?.5.7 SYSERR. 

a. The error number and address, and AO are saved. 

b. Locate the address of the FIT for the output file. 
Search the RA + 2 list and the first word of each 
FIT. Tf the output file is not located* issue a 
fatal dayfile message. 

c. Open the OUTPUT file if not currently open. 

d. If the error number is zero, then no traceback 
information is generated. 

e. If the error number is out of range, then set the 
number to the last error number. 

f. Tf SYSTEM has been called then control is passed to 
SE7 in SYSTEM for extended error processing. 

g. Print error message with traceback information. 
From entry point SYSERR. fetch the RJT word which 
called SYSFRR. From this word fetch the TRACE. 
word, which has the routine name and entry point 
address, and line number from which the routine was 
called. This information is printed and the process 
is repeated using the RJT from the entry point word 
until the main program is reached or the maximum 
traceback is reached. 

h. If SYSTEMC has been called then control is oassed to 
SYSTEM at SE18. 

i. If the error is non-fatal then exit through entry 
point SYSERR. else issue a fatal error message to 
the dayfile and abort the Job. 
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IV. i GETFIT= 
Ik,? PURPOSE 







GFTFIT= is called whenever it is necessary to obtain the 
address of an FIT given the file name or tape number. 

l«f.3 USAGE 

A call to this routine is made from an object time routine 
when it is necessary to obtain the FIT address for a file. 

Entry Point! GETFTT. 

Entry Conditions: XI contains the address of a word which 
contains the logical filename or logical unit number. 

Exit Conditions: XI contains the FIT address 

Ht.k RESTRICTIONS and ERROR MESSAGES 

Restrictions! none 

Error Messages: 

Error Number 
FILE NOT DECLARED 62 

IV. 5 GENERAL DESCRIPTION of the ROUTINE 

a. The word containing the filename/number is 
obtained. 

b. If this is not a name the tape number is converted 
to display code and appended to TAPE. 

c. The RA+? list is searched for the filename. If the 
name is found the FIT address is nlaced in XI and 
control is returned to the cal ling routine. 

d. If the filename is not found F0RSYS= is called to 
issue error messane number 62. 

IV. 6 EXTERNAL CALLS 

none 



© 
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15.1 INPB= 
15.? PURPOSE 



o 



INP8= transfers binary data from a file to variables in 
central memory. If no list is specified* the next logical 
record is skipped. 



15.3 USAGE 



This routine is called in response to the FORTRAN statement 
READ u, L where 

L = List of variables to be read 

u = Logical unit number 

Initial Entry Point* INPBI. 

Entry Conditions 

Al = FWA of the APLIST 
XI = FIT pointer 

APLIST format: 

FIT pointer 
EOF address 
list item 

O 

APEND (zero word) 

Restart Entry Point: INPBR. 

Entry Conditions* 

Al = FWA of the APLIST 

XI = First word of the APLIST 

APLIST formats 

list item 



APEND (zero word) 

Exit Conditions! The data from the file will have been 
transferred to the aooropriate variables. 

15. k RESTRICTIONS and ERROR MESSAGES 

Restrictions* none 
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Error Messages: 

error number 

END OF FILE ENCOUNTERED, FILENAME -XXXXXXX 65 

LIST EXCEEDS DATA, FILENAME - XXXXXXX 88 

WRITE FOLLOWED BY READ ON FILE XXXXXXX 89 

PARITY ERROR READING (BINARY) FILE - XXXXXXX 90 

15.5 GENERAL DESCRIPTION of the ROUTINE 

a. If XI does not contain FWA of the FIT, GETFIT. is 
called and returns the address in XI, 

b. The FOE address from the APLIST is stored in cell 
ENO=. 

c. Set flag to denote initial entry. 

d. If the FORTRAN endfile bit <FPB) is set in the FIT 
then issue end-of-file encountered error message. 

e. If the oarity error bits are set in the FIT then 
issue a parity error message. 

f. If the file position is EOI check if initial call. 
If yes set the FP8 bit and return to the calling 
routine, else issue list exceeds data error. 

g. If the file is not open then open the file. 

h. If the current APLIST element is minus zero return 
to the calling routine. If it is olus zero skip the 
file to end of record if the file position is not 

EOR. 

i. If the next APLIST element is plus zero set flag. 

J. Obtain the data address and word count from the 
current APLIST element. 

k. If initial call then skip to step p. 

I. If the DAT. buffer is empty skip to step n. 

m. Move the minimum of the word count and the current 
number of words in buffer to the variable. 

n. If all data has been transferred to variable then 
return to step h. 
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o. If LEXDER flag is set then issue list exceeds data 
error message. 

p. If the number of words needed is greater than the 

buffer size or if the next element is plus zero then 

read data directly into variable, obtain the next 
APLTST element, and return to step h. 

g. Read a maximum of 150 words into the OAT. buffer. 

r. If the number of words read exceeds or equals number 
needed, go to step m. 

s. Set LEXOER flag and go to step m. 

DATA EXIT FROM RECORD MANAGER 

t. A list exceeds data error is issued if an EOF 
condition exists not on the initial call. 

u. If it is the initial call then set the FPB bit in 
the FIT and return to the calling routine. 

15. F- EXTERNAL CALLS 

GETFIT. - locates FWA of the FIT. (T> 

SYSFRR. - Handles error processing 
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16.1 INPC= 

16.2 PURPOSE 



^0r 



INPC = is called to read a list of variables and arrays 
according to a given format. 



16.3 USAGE 



This routine is called in response to the FORTRAN statement 
RFAOtu, f) L where 

u = Logical unit identifier 

f = Format statement number 

L = List of variables to be read 

Initial Entry Points INPCI. 

Entry Conditions* 

Al = FWA of the APLIST 
XI = FIT Datnter 

APLIST format: 

FTT pointer 

FWA of the format 

list item 



APEND (zero word) 

Restart Entry Points INPCR. 

Entry Conditions* 

Al = FWA of the APLIST 

XI = First word of APLIST 

Exit Conditions* One FORTRAN logical record will have been 
transferred to the given storage locations. 

16. <♦ RESTRICTIONS and ERROR MESSAGES 

Restrictions* The record cannot be longer than 1"50 
characters. 

Error Messages* Error number 

FND-OF-FILE ENCOUNTERED, FILENAME - XXXXXXX 6f5 

WPITE FOLLOWED BY READ ON FILE XXXXXXX 91 

PARITY ERROR RE ADING< COOED) FILE, FILENAME - XXXXXXX 92 
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16.5 GENERAL DESCRIPTION of the ROUTINE 

a. If XI does not contain the FIT address, GETFIT. is 
called and returns the address in XI. 

b. If the FP8 bit in the FIT is set then issue end of 
file encountered error message. 

c. If the file position is EOI then set the FP8 bit in 
the FIT, store minus zero in the first data list 
item, and return to calling routine. 

d. If the file is not opened then open the file. 

e. An initial call is made to KRAKER. One record is 
read and burst into one character per word in the 
DAT. buffer. 

f. If the current list element is minus zero then 
control is returned to calling routine. 

g. If the current list element is plus zero a terminal 
call is made to KRAKER. and control returned tc 
cal I ing routine. 

h. The data address and word count are obtained froif 
the current list item. 

i. KRAKER. is called to format the data item and move 
it to the proper storage location. Control is 
transferred to step f. 

CODE TRANSFERRED TO FROM KRAKER. 

J. One logical record is read. 

k. If a zero I ength record was read the DAT. buffer is 
blanked else the record is burst into one character 
per word in the OAT. buffer and control is returned 

to KRAKER. 
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16.6 EXTERNAL CALLS 







BURST. - Entry point in FORSYS= which bursts a record into 
one character per word in the OAT. buffer. 

GFTFIT. - locates FIT address and returns it in XI. 

KRAKER. - formats input data according to a given format. 

SYSERP. - Handles error processing 
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17. i IOCHEC 
17.2 PURPOSE 



o 



IOCHFC tests the errsr status field in the FIT for a parity 
error on a specified unit. 

17.3 USAGE 

This routine is called in response to the function statement J 
= IOCHFC(u), where u is the logical unit, and J is the cell in 
which the result of the parity check is stored immediately 
after IOCHFC is exited. 

Entry Points! IOCHFC 

Entry Conditions: XI contains the address of the filename. 

Exit Conditions: X6 contains the parity error test indicator* 
f], no error: -1, error. 

17.* RESTRICTIONS and ERROR MESSAGES 

none 

17.5 GENERAL DESCRIPTION of the ROUTINE £j 

a. GFTFTT. is called with XI containing the filename 
or tape number. The FIT address is returned in XI. 

b. The error status field of the FIT is checked for 
parity error status. 

c. X6 is returned with zero if no parity error was 
detected else it is returned with the integer -1. 

17.6 EXTERNAL CALLS 

GETFIT. - obtains the FIT address 
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21.1 LENGTH 
21.? PURPOSE 







LENGTH will return a count of central memory words transferred 
on the previous I/O request far a particular file or logical 

tape number. 

21.3 USAGE 

This routine is called in response to the FORTRAN external 
function L = LENGTH (J) where L is an integer cetl in which the 
routine stores a count of the number of central memory words 
transferred from file J during the last I/O reauest. 

Entry Points* LENGTH 

Entry Conditions* XI contains the address of the filename or 
of the tape number. 

Exit Conditions* X6 contains number of words transferred to/ 
from J. 

21. k RESTRICTIONS and ERROR MESSAGES 

Restrictions* Meaningful results are not guaranteed if a 
LENGTH function is requested on a buffer unit before 
requesting a UNIT function. 

Errors* none 

21.5 GENERAL DESCRIPTION of the ROUTINE 

a. GETFIT. is called with the filename or tape number 
in XI. The FIT address is returned in Xt. 

b. The record length in characters is obtained from the 
FIT. 

c. The character count is converted to word count and 
placed in X6. Control is returned to the calling 

program . 

21.fi EXTERNAL CALLS 

GETFIT. - obtains the FIT address. 
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">h.l OPENMS 

?l».2 PURPOSE 



This routine links a FORTRAN program to the coMon FORTRAN/ 
COBOL random file utility to open a random file. 



o 



2if.3 USAGE 

This routine is called in response to the FORTRAN statement 
CALL OPENMS <u , ix , I ngth, t ) where 
u - Unit designator 

ix = First word address in central memory of the array 
which will contain the index 
ingth = Length of index 
t = Type of index 

t = for a numbered index 
t = 1 for a name index 

Entry PointsJ OPENMS 

Entry Conditions: 

Al - FWA of the APLIST 
XI - FIT pointer 

Exit Conditions: The random file will be ooened. £~\ 

?h,h RESTRICTIONS and ERROR MESSAGES 

?_U.* GENERAL DESCRIPTION of the ROUTINE 

none 

a. Store linkage in F0RSYS= to Jumo to CLOS.RI when 
closing files. 

b. GETFIT. is called with the filename or tape number 
in XI. The FIT address is returned in Xi. 

c. A return Jump is made to the random utility routine 
to open the file. 

d. If an error has occurred print the appropriate error 
message and abort. If no error has occurred then 
return to calling routine. 

?s».6 EXTERNAL CALLS 

GETFIT. - obtains the FIT address. 
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25.1 OUTB = 

25.2 PURPOSE 



This routine transfers one logical record of binary 
information from storage to a file unit. 



25. 5 USAGE 



This routine is called in response to the FORTRAN statement 
WRITE <i) I where 

i = file unit number 

L = I ist of variables 

Initial Entry Point: OUTBI. 

Entry Conditions: 

Al = FWA of the APLIST 
XI = FIT pointer 

APLIST format: 

FIT oointer 
record length 
I ist item 



APEND (zero word) 

Restart Entry Point: OUTBR. 

Entry Conditions: 

Ai = FWA of the APLIST 

XI = List item 

APLIST format: 

list item 



APEND {zero word) 

Exit Conditions: The logical record will have been transferred 
to the file unit, 

25.it RESTRICTIONS and ERRORS 

Restrictions: none 
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Error Messages 

error number 

PARITY ERROR ON LAST READ ON FILE XXXXXX 93 

25.5 GENERAL DESCRIPTION of the ROUTINE 

a. If XI does not contain the FIT address, GETFIT= is 
called and returns the address in Xi. 

b. If the oarity error bits are set in the FIT then 
issue a parity error message. 

c. The total word count is computed for the write. 
This is done by executing the compiled code and 
summing the word count for the various APLTST. When 
a olus zero is encountered for the list element the 
sum is stored in the RL field of the FIT. The first 
list item is obtained from the APLIST. 

d. If the current APLIST element is minus zero return 
to the calling routine. If it is olus zero flush 
any data that may be in the DAT. buffer and return 
to the calling routine. 

e. Obtain the variable address and word count from the 
list el emen t. 

f. If this is a call with only one list item then write 
data from variable area and return to the calling 
rout ire. 

g. If the data will not fit in the DAT. buffer then go 
to step h else move the data to the DAT. buffer, 
fetch the next list item and return to step d. 

h. Write the data directly from the variable area if no 
data exists in the OAT. buffer, else write data 
from the OAT. buffer and reset buffer pointers. 

i. Return to calling routine if terminal call. 

J. If the word count is less than buffer size move data 
from variable area to DAT. buffer, update pointers, 
fetch next list item and go to step d, else write 
data directly from data area, fetch next list item 
and go to step d. 
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25.6 EXTERNAL CALLS* 

GETFIT. - locates FIT address 
SYSERR. - Handles error processing 
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26.1 OUTC = 

26.2 PURPOSE 



o 



OUTC= transfers coded data from storage to a file unit 
according to a given format. 



26.3 USAGE 



This routine is called in response to the FORTRAN statement 
WRITE<u,f> L or PRINT f, L where 

u = Logical unit number 

f = Format statement to be read 

L = List of variables to be written 

Initial Entry Points OUTCI. 

Entry Conditions 

At = FWA of the APLIST 
XI = FWA of the FIT 

APLIST format: 

FWA of the FIT 
format pointer 
list item 



APENO (zero word) 

Restart Entry Points OUTCR. 

Entry Conditions? 

Al = FWA of the FIT 
XI = List item 

APLIST formats 

list item 



APEND (zero word) 

Exit Conditions: Upon exit one FORTRAN logical record will 
have been written to the file unit. 

26. <V RESTRICTIONS and ERROR MESSAGES 

Restrictions: The maximum record size is 150 characters. 

0UTC= U-2 



O 



© 



. _ FORTRAN COMMON I/O LIBRARY IMS 

o 



05/08/73 







Error Messages: 

Error Number 
OUTPUT FILE LINE LIMIT EXCEEDED 83 

PARITY ERROR ON LAST READ, FILE XXXXXX 9^ 

26.5 GENERAL DESCRIPTION of the ROUTINE 

a. If XI does not contain the FIT address, GETFTT. is 
called and returns the address in Xi. 

b. If the parity error bits are set in the FIT then 
issue a parity error message, 

c. Open the file if it is not presently ooen. 

d. Fill the DAT. buffer with blanks. 

e. Make initialization call to KODER. 

f. Fetch current APLIST element. 

q. If the current list element is minus zero return to 
the calling routine. 

h. If the current list element is plus zero a terminal 
call is made to KODER. and control is returned to 
the calling routine. 

i. Obtain the variable address and the word count from 
the 1 1st element. 

J. Call KODER. to format the data in the DAT. buffer 
and return ta step f. 

26.6 EXTERNAL CALLS 

GETFIT. returns the FwA of the FIT in XI. 
SYSFRR. - Handles error orocessing 
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?7.1 RANMS 

27.2 PURPOSE 

This routine is the FORTRAN random file processing utility. 
It is called from other object time routines to process the 
actual I/O. 

?7.3 USAGE 

This routine is called from the following routines. 
?7.3.2 OPENMS 

Entry Points OPFN.RI 

Purpose: This section of RANMS makes initial checks of the 
file and index. If there are no errors the file is ooened. 

Entry Conditions: 

XI = FWA of the FIT 
X6 = FWA of the APLTST 

APLIST Format: 

FWA of CM buffer for the master index 
Address of word containing CM buffer length 
Address of word containing index type flag: 

for number index* 1 for name index 

Exit Conditions: The file will have been opened or an error 
code returned in X?. 

?7.3.3 READMS 

Entry Point: READ.RI 

PurDOse: This section of RANMS reads a record from a random 
file. 

Entry Conditions: 

XI = FWA of the FIT 
X6 = FWA of the APLIST 

APLIST Format: 

FWA of data area in CM 

Ad ; dress of word containing index name/number key 

Address of word containing record length 

Exit Conditions: The record will have been read or an error 
number returned in X2 . 

RANMS <f«* 
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O 27.*. 5 WRITMS 

Entry Point! WPIT.R1 



Purpose! This section of RANMS writes a data record to a 
randsm file. 

Entry Conditions! 

XI = FWA of the FIT 
X6 = FWA af the APLIST 

APLIST Format! 

FWA of data to be written 

Address of word containing record length 

Address of word containing index name/number Hey 

Address of word containing rewrite flag 

(optional) Address of a ward containing sub-index flag 
or 

Exit Conditions! The record will have been written or an error 
number returned in X2. 

27. <♦ RESTRICTIONS AND ERROR MESSAGES 

Restrictions and errors are documented in the calling 
routines. 



o 

27.5 GENERAL DESCRIPTION of the ROUTINE 



27.5.? OPEN.RI 



a. The file is open /nth file organization set to word- 
addressable. 

b. If the record type in the FIT is not WA then a file 
control card was used and an error status is 
returned. 

c. Read the index control word from the file. 

d. Zero f i I! the area reserved for the master index. 

e. If this is a new file then store appropriate fields 
in the FIT and return to calling routine. 

f. If there is not enough room for the record then 
return to calling routine with error flagged. 

g. Store appropriate fields in the FIT and read the 
master index. 

RANMS kS 
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h. If -file index does not match parameter then return 
with error flagged* else return normally. 

27. 5.T READ.RI 

a. Call routine RFSUB2 to find file index entry 
corresponding to call. 

b. If entry was not found return with error number in 
X2. 

c. Unpack index control for parameters to record 
manager . 

d. Read record from file and return to calling 
routine. 

27.5.5 WRIT.RI 

a. Set f lag if this is a rewrite. 

b. Set flag if there is a sub-index. 

c. Call routine RFSUB2 to find file index entry 
corresponding to call. 

d. If there is no room in index for new entry return 
with error number in X2. 

e. If rewrite was requested then go to step h. 

f. Write data record at the end of the file, 

g. Update the pseudo EOT pointer and return to calling 
routine. 

h. If index entry was not found return with error 
number in X2. 

i. If there is room for the record then rewrite record 
as requested and return to the calling routine. 

1. If write at EOI option is set then write the record 
at EOI and return* else return with error number in 
X2. 
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28.1 REAOMS 

28.2 PURPOSE 



O 



REAOMS links a FORTRAN caller to the common F0RTRAN/C080L 
random file utility to read a record from a random file. 



28. If USAGE 

This routine is called in response to the FORTRAN statement 
CALL REAOMS (u,fwa,n,k) where 

u = Unit designator 

fwa = FWA of the record 

n = Record length 

k = Index key 

Entry PointJ REAOMS 

Entry Conditions? 

Al = FWA of the APLIST 
XI = FIT DOinter 

APLIST format! 

FIT pointer 

FWA of the record 

Record length 

Index key 

APEND (zero word) 

Exit Conditions? The record will have been transferred froir* 
the file to central memory. 

28. if RESTRICTIONS and ERROR MESSAGES 
none 

28. 5 GENERAL DESCRIPTION of the ROUTINE 

a. GETFIT. is called to locate the FWA of the FIT. 

b. REAO.RI is called to do the actual I/O. 

c. If an error number is returned from REAO.RI then 
print the error message and terminate t else return 
to the calling routine. 
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28.6 EXTERNAL CALLS 

GFTFIT. - Locates the FWA of the FIT. 
RFAD.RI - Does the actual transfer of data. 
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29.1 REWINO= 

29.2 PURPOSE 

This routine rewinds a FORTRAN file. 

29.3 USAGE 

This routine is called in response to the FORTRAN statement 
RFWIND u-» where u is the logical unit number. 

Entry Paint: REWIND. 

Entry Conditions* 

XI = FIT pointer 

Exit Conditions: Upon exit the file will have been rewound. 
29. W RESTRICTIONS and ERROR MESSAGES 

nona 

29.5 GENERAL DESCRIPTION of the ROUTINE 

a. If XI does not contain the FIT address GETFIT. is 
called and returns the address in XI. 

b. If the file is not open then set the open flag in 
the FIT to rewind and return to the calling 
routine. 

c. If the last operation was a write then write an 
endfile indication on the file. 

d. Clear the FORTRAN end-of-file bit in the FIT. 

e. Rewind the file. 

f. Set the open-close flag in the FIT to never open. 
q. Return to the calling routine. 

29.6 EXTERNAL CALLS 

GETFIT. - locates FWA of the FIT. 



REWIND* <*<? 



FORTRAN COMMON I/O LIBRARY IMS 

05/08/73 



30.1 STINDX 

30.2 PURPOSE 



o 



STINDX selects a different array to be used as the current 
index tj a random file. 



10.3 USAGE 

This routine is called in response to the FORTRAN statement 
CALL STINOX (u, ix, Ino th, t ) where 

u = Unit designator 

ix = FWA of array which will contain the index 

Ingth = Length of index 

t = Type of index 

Entry Points STINOX 

Entry Conditions* 

Ai = FWA of the APLIST 
Xi = FIT painter 

APLIST format* 

Unit designatar 

FWA of array which will contain the index 

Index length <#*\ 

Type of file *-f 

30. «f RESTRICTIONS and ERRORS 

none 

30.5 GENERAL DESCRIPTION of the ROUTINE 

a. GETFIT. is called to locate FWA of the FIT. 

b. STIN.RI is called to change the index. 

c. If an error number is returned from STIN.RI then 
print the error message and terminate, else return 
to the calling routine. 

30.6 EXTERNAL CALLS 

GETFIT. - returns FWA of the FIT 
STIN.RI - does the actual change of index 
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31.1 SYSTEM 

31.2 PURPOSE 



SYSTEM is a multiole entry routine which handles non-standarc 
error Drocessing. 



31.3 ENTRY POINTS 
31.3.1 SYSTEM 



Purposes This entry point is called to issue a supplied 
message with a supplied error number. If the error number is 
zero then all files for which the I ast . operation was a write 
are to be flushed. 

Entry Conditions* 

XI = Address of cell containing the error number 
Al = Address of the parameter list 

APLIST format: 

Address of cell containing the error number 
Address of the error message 



31.3.? SYSTEMC 



Purpose* Changes entry to SYSTEM-S error table according to 
arguments passed. 

Entry Conditions? 

Al = Address of parameter list 

XI = Address of word containing error number 

APLIST formats 

Address of word containing error number 

Address of list containing consecutive locations: 

Fatal /non-fata I (fatal = 1, non-fatal = 01 

Print frequency 

Print frequency increment (only significant if 
preceeding word = 0) special values* - never list 
error, 1 - always list error, or x - list error only 
the first x times. 

Print limit 

Non-standard recovery address 

Maximum traceback limit 

If any word in the argument list is negative, the value 
already in table entry is not to be altered. 
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31.3.3 SYSLNK. 

Purpose: Lirtk SYSTEM to F0RSYS=, thus for all calls to 
SYSFRR. SYSTEM will be called for possible extended error 
processing. 

Entry Conditions? none 

31.3.*» SF7 

Purpose: Control enters here from FORSYS= to update 
information in the error table Kept in SYSTEM. This is not a 
true entry point but is one of the Jumps plugged by SYSLNK. 

Entry Conditions: 

X? = Address of message 
A0 = Error number 

31.3.5 SYS88 

Purpose: SYS88 prints a summary of each error received during 
the execution of the Job and the number of times it was 
received. 

Entry Conditions: none 

31.5.1 SYSTEM 

a. Fetch the address of the error message. 

b. Call SYSLNK. to link F0RSYS= and SYSTEM together. 

c. Store return address in entry word for SYSERR. 

d. Fetch the error number, if nonzero Jump t 3 SYSFRR+i 
else call SYSENO. to end output buffers and return 
to the calling routine. 



31.5.? SYSTEMC 



a. If the error number is out of bounds then return to 
the calling routine. 

b. Set the appropriate fields in the error table 
according to the parameter list. 

c. Call SYSLNK. to link F0RSYS= and SYSTEM together 
and return to the calling routine. 
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31.5. 3 SYSLNK. 



31.5.** SE7 







31.5.5 SYS88 



Cells in SYSTEM which have branches to labels in 
SYSTEM are stored in F0RSYS=. 



a. Fetch the error table entry. 

b. If the orint limit is zero or if the print frequency 
and print frequency increment is zero then set flag 
not to print error message. If the print frequency 
does not equal print frequency increment then 
increment print frequency by one and set flag not to 
print, else clear the print frequency limit. 

c. If the detection count is ^095 then go to step g. 

d. If the message address is zero then call *as made to 
bump count only, thus return to calling routine. 

e. Transfer control to F0RSYS= to print message if flag 
is set to print. Control is returned after 
printing. 

f. If non-standard recovery is specified or if non- 
fatal error go to step h. 

g. If the SKIP flag is zero then call SYS88 to print 
error summary and call SYSENO. to end output 
buffers. Issue fatal error message to dayfile and 
end the job, else return to the calling routine. 

h. If no recovery address is specified then return to 
calling routine through SYSERR. 

i. If fatal error with recovery has been specified 
store jump to abort in entry point of recovery 
routine and transfer control to entry point +1. 

J. For a non-standard error with recovery specified the 

entry address of the routine in which the error was 

detected is stored into the entry point of the 

recovery routine. Control is transferred to the 
recovery routine. 
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b. Fetch error table entry. If detect i on count is zero 
then fetch next entry and repeat. 

c. Print the error number and the total number of times 
it was detected. 
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32.1 UNIT 

32.2 PURPOSE 

UNIT returns the status of a buffered file. 
32,5 USAGE 

This routine is called in response to the FORTRAN statement 
function UNIT(i), where i is the unit designator. 

Entry Point! UNIT 

Entry Conditions? XI contains the complement of either the 
logical file name or the logical unit number. 

Exit Conditions: Upon exit UNIT will set X6 
-I» unit ready, no error 
+0 , unit ready, EOF encountered 
+1 t unit ready, parity error encountered 

*2. i* RESTRICTIONS and ERROR MESSAGES 

none 

32.5 GENERAL DESCRIPTION of the ROUTINE 

a. GETFIT. is called and returns the FIT address in 
XI. 

b. X6 is set to 1.0. 

c. Issue a record manager CHECK to ensure completion of 
the I/O. 

d. If the last operation was not a write and the file 
position is EOF then clear the FP8 bit in the FIT, 
set X6 to zero, and return. 

e. If the parity bits in the FIT are not set then 
return, else set X6 to -1.0 and return. 

32.6 EXTERNAL CALLS 

GETFIT. - locates the FWA of the FIT. 
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33.1 WRITMS 

33.2 PURPOSE 



WRITMS links a FORTRAN caller to the common FORTRAN/COBOL 
random file utility to write a record to a random file. 

33.3 USAGE 

This routine is called in resoonse to the FORTRAN statement 
CALL WRITMS (u»fwa,n,k» where 

u = Unit designator 

fwa = FWA where the record is to reside in CM 

n « Record length 

K = Index key 

Al = FWA of the APLIST 

XI * FIT oointer 

APLIST formats 

Unit designator 
FWA of the record 
Record length 
Index key 
APFNO (zero word* 

Exit Conditions* The record will have been transferred from 
central memory to the fife. 

33. if RESTRICTIONS and ERROR MESSAGES 

none 

S3. 5' GENERAL DESCRIPTION of the ROUTINE 

a. GETFIT. is called to locate the FWA of the FIT. 

b. WRIT.RI is called to do the actual I/O. 

c. If an error number is returned from WRIT.RI then 
print the error message and terminate, else return 
to the calling routine. 

33.6 EXTERNAL CALLS 

GETFIT. - locates the FWA of the FIT 

WRIT.RI - does the actual transfer of data 
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